EEE 
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Ll 
Ll 
Ll 
Ll 
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Ll 
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Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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LLLLLLLLLLLLLLL | 
| 
| 
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; Return position of substring 


; Detailed Current Edit History 
BEINDEX = return relative pos. of substring 


16-SEP-1984 00:10:18 VAX/VMS Macro V04-00 


Page 0 


Thomas N. Hastings, 6-Aug-77: Version 0 
; MODIFIED BY: 
04 = DGP, 03-Jan-78 


, L 14 
IBS INDEX ; Return position of substrin 16-SEP-1984 00:10:1 X/VMS Macro Vv04-00 Page 1 
41888 ° gr SEF 382 90: b8508 Hy IBRTL.SRCILIBINDEX.MAR;1 . (1) 
1 TITLE LBS] NOE 3 Return ets tion of su ubete ioe 
§ -IDENT /1-005/ 3; File: BINDEX.MAR Edit:RKR1005 
: s evecqcncerereqceseceqneneceqnqnecencqnenececqqnenseceesenseceqqoseseceqeesss 
3* ® 
S 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
3* DIGITAL Se CORPORATION, MAYNARD. MASSACHUSETTS. * 
0 1 - ALL RIGHTS RESER ® 
P ® 
8 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 3* ONLY IN ACCORDANCE WITH OF SUC SE D WITH THE * 
15 3;* INCLUSION ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0 14 ;* COPIES THEREOF MAY NOT B VIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
00 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
388 1 + TRANSFERRED. * 
4 ® 
4 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 Y - CORPORATION. * 
3 ® 
000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 
000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
000 4 3* * 
0000 5 i* * 
44 $ BY SRAAAAAAAAAAAAATAEAAAAAAAAAAAARAAAAAAAAAAAAAAEAREAREAAAAAEAAAAAAEAEAEAAAAEAEAEAEAEEEEE 
0000 8; 
0000 9 ; FACILITY: General Utility Library 
0000 0 ;++ 
4 1 : ABSTRACT: 
O60 $ ; Return relative position of substring in string or 0 
000 5; 
00 6 ; VERSION: 0 
4 73 
4 8 : HISTORY: 
B98 9 3 
00 40 : AUTHOR: 
494 rh : 
$00 68 | : 
000 43; 
000 46 ; 


" 
$ “$ - 
1-605 MsHER” FbetaTEel corres Else atarory CEE “1984 11:08:08 ECTONTL.SRCILIBINDEX.maR;1 29° (3) 


: -SBTTL HISTORY ; Detailed Current Edit History 
6 


Edit History for Version 0 


Re 
1-001 = Updat JBS 16-Nov-78 
; “89 = Add to PSECT directs es "BS 21-D orice. 


1- - Enhance to recogn ze Hae ional pmo of descriptors by 
using | fae — aLvde -SbES RS to airee* length and address Vof 


1-004 = Add s ae aoe det tring d ipt hat 
Ae read spe ike rea‘ string proce ptors. 2k KR 9-0 ero tsai. 
1-005 - Reg rec om_L S_R3 


B LYZ 
CBSANAL YE. SB SDESC OR? Reorggnize. re r gister usage so that 
is no longer uSed. RKR 18-NOV-1 


WR OOONOUS 


La 


Return 
BECLARATI 


ao 
oS 
So 
So 


Sooooooooooooo 


Soooooooooooooeo 
SOooQooooooooooo 


OOOO QooOoooooood 


sition 
$s 


0000000000909 09 09 09 09 09 08 INI INI INI NNO 


FW" O OODNOAUE WN O OONOUES WN 


N 14 
of substrin 16-SEP-1984 00:10:1 'AX/VMS v04-00 
mde: mets 7 9: :08:0 LIBRTL. sL1B BINDEX.MAR; 1 


«SBTTL DECLARATIONS 


INCLUDE FILES: NONE 


EXTERNAL SYMBOLS: 
-DSABL GBL : only rng HA externals 
eEXTRN PIBSANALYZE _SDESC_R2 Extract length and addr of 
: Ist data byte from descriptor 
MACROS: 
SDSCDEF : fields within a descriptor 


PSECT DECLARATIONS: 
»PSECT _LIBSCODE PIC,SHR,LONG,EXE,NOWRT 
EQUATED SYMBOLS: NONE 


OWN STORAGE: NONE 


B 15 
LIBSINDEX iti f bstri 16-SEP-1984 :10:1 AX/VMS M 4- 
+188) position of substring 6-SE 90: 10:18 S$ Macro V04-00 Page 4 


- return relative pos. of subs 6=-SEP-1984 LIBRTL.SRCILIBINDEX.MAR; 1 (4) 
9 -SBTTL LIBSINDEX = return relative pos. of substring 


; Ret 
L1B$1 


p++ 
; FUNCTIONAL DESCRIPTION: 


Return fhe relative position of the first character of 
sub_string in src_string or 0. 

The value is an unsigned integer longword. 

The out character positions are numbered 1, 2, ..., 

thus 0 is a unique number meaning sub_string was not found. 
The value returned is the relative position of the first 
character of sub_string in src_string (not the last+1). 

If both strings fave zero length or sub_str ng has zero Length 
a1 is returned pe Rye a found string. I are_string 

has zero sengeh and sub_string has non-zero length, a 0 is 
returned indicating that sub_string was not found. 


CALLING SEQUENCE: 


rel_position.wlu.v = LIBSINDEX (src _string.rt.dx 
sub_string.rt.dx 


ODOOQOOCOCOGOOOOCSOOSOOOSSoOoOSoO V4 
SOOOoQoQoQoQooooQooooooooooooo ms 


ODOOOOCOCGCOOOOCOOOOOCOCSoOSCSoOSO 2c 


INPUT PARAMETERS: 


00000004 SRC_STRING = ; Address of source string descriptor 
; to be searched. 
00000008 SUB_STRING = ; Address of sub string descriptor to 
; be searched for. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE . 
REL_POSITION.wlu.v The resulting position 


SIDE EFFECTS: 
NONE 


SOOOGSOCOOSOOSOOSOSSOSOOSOOOCOCOCOOOOOSOOOOOOOOOOOOOSOOSOO =x 
MR OODNAUES WIN 9 OONAUE WN 9 OO NAMES WW OOONAULS WOO 
. 


FF PANINI AAAIWIWIWIDIDIPINIPINININIDID) 2 2 2 PP SF PM OOOOOOOOCOCOOUO 


— ss — — — 1 3 — SS SS Ss SS Ss SS) SS Ss  S SS SS 1 a SS YS SS 


SOoOOoooooooooooooooooooosososcoo 


SOOoOoOCOOooCoOoooooooooooooocoo: 
SOOO COOoCOoOoooOoOoOoooOooooOSooSo 


[eee 


C 15 
 IBSINDER ; Return position of substring 16-SEP-1984 00: 10:18 AX/VMS Macro V04-00 Page 
1-00 LIBSINDEX = return relative pos. of subs 6-SEP-1984 11:08:0 LIBRTL.SRCJLIBINDEX.MAR; 1 
003C 0 144 ENTRY ‘IBSINDEX, “M<R2,R3,R4,R5> ; entry point / entry mask 
145 : integer enable is off for 
108 3 SUBWS (unsigned) 
50 68 AC 00 8 138 MOVL SUB_STRING(AP), RO ; Address of sub_string descr. 
02 0 Ad 71 6 149 CHP DSCSB_CLASS (ROS, #DSCSK_CLASS_D ; read Like fixed ? 
3: no 
53 08 BC 7D ; 151 ova @SUB_STRING(AP), R3 ¢ length=>R3, address-> R4 
. 3 4 13 BRB 2$ 3 join common flow 
e009 00's 16 001 154 18: JSB G*LIBSANALYZE_SDESC_R2 ; Extract: length=>R1, addr->R2 
51 3x¢ Bat 155 MOVZWL R1, R3 3 save sub_string Length 
4 52 00 B18 138 OVL R2, R4 ; save sub_string data address 
50 04 AC 00 ODI 158 2$: MOVL SRC_STRING(AP), RO ; Address of src_string descr. 
02 03 Ad 7 00 : 139 CPB SCSB_CLASS(ROS , #DSCSK_CLASS_D ; read (Tke fixed ? 
3 no 
51 04 6C 7D 88 8 161 mMOVa @SRC_STRING(AP), R1 : length=>R1, address->R2 
06 11 8 : 166 BRB 4$ : join common fiow 
00000000'GF 16 OEE 19 3$: JSB G*LIBSANALYZE_SDESC_R2 ; Extract: length->R1, addr->R2 
55 51 53 A3 0034 166 4$: SUBW3 = R3, R1, RS ; RS = unsigned difference in 
OO 4 e4 3; length of src minus sub 
62 51 64 53 39 0038 169 MATCHC R3, (R4), R1, (R2) ; Find sub_string in src_string 
003D 170 ; State of regs after a MATCHC instr. 
0030 171 ; RO = If match occurred, 0, 
iets Wie 3 oiee number of bytes in object 
3 string. 
0030 174 ; R1 = If match occurred, the address of 
ite \73 : one byte beyond the object 
; string, 
003D 177 3 else Sagress of the object string 
0030 178 ; R2 = If match occurred, the number of 
003D 179 3 bytes rene ining at the source 
i 199 ; string after the match, 
; else 
003D 136 ; R3 = If match occurred, the address of 
003D =—-'18 3 one byte beyond the Last byte 
itt 184 ; matched, 
003D 185 : else address of one byte beyond 
BR 30 196 3 the source string. 
09 12 00% 188 BNEQ 10% : branch if no match found 
50 55 3C QOO3F 189 MOVZWL RS, RO 3; RO = Len src = len sub 
7 Se Bone 190 SUBL R2, RO 3; RO = Len src = len sub - # char left 
Bie 191 ; to scan = rel. pos. of Ist char of sub 
50 06 45 135 INCL RO 3 wants l-origin, not O-origin position. 
04 0947 19 RET ; RO = relative position 
004 194 
Ce 
: i ; Were when sub_string not found 
48 199 ° 
50 D4 4 200 10$: CLRL RO ; RO = 0 to indicate not found 


eines [ 
erature rele tive ps pos. subs x 2 SEp= 1982 99: 08: 8 Ht iL18 BN DEX. MAR; 1 _— (3) ‘ 


sit 

e 

- RET 3; return 

: END :; End of module LIBSINDEX 


1-505" ‘Bt 


LIBSINDEX ; Return position of substrin 16-SEP-19 210:1 AX/VMS v04-00 7 
Symbol table 2 6-SEP=- 71382 : 08: 08 tiie RTL.S ft18 BINDEX.MAR; 1 et ' 
pecee $ = 
SSHD-CLAS : Senne 
LIBBARAL Ze ~Soesc R2 eeenenee §6X 
L1B$1 0000000 RG 
ERE STRING = 4 
SUBSTRING = os 

tewrococecaceesccaeceas + 

: ; _Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 

s 00000000 “¢ 0.) 0.) NOPiC USR CON ABS LCL NOSHR NOEXE 
$ 00000000 < Q-} ? 1.) NOPIC USR CON ABS LCL NOSHR EXE 
LIBSCODE 00000048 (¢ 75.) 02¢ 2. PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
4 Sea oeaw neon en eas euseneneaat 
H Performance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00:00 -05 00:00:03.14 
Command processing 108 00:00:00.31 eS Be Ee 3 
Pass 132 0:00:01.13 0:00:06.57 
Symbol table sort 0 9:00: 8-49 00:00:00.1 
Pass 2 50 0:00:00.3 00:00:01.92 
Symbol table output 2 00:00:00.01 00:90:00.41 
Psect synopsis output OF 8 08 08 00:00:00.02 
Cross-reference output 00:00:00.0 00:00:00.00 
Assembler run totals 32 00:00:01.96  00:00:15.37 
The working set Limit was 1050 pages. 


8502 bytes (17 pages) of virtual memory were used to buffer the intermediate code. 

There were pages of symbol table space anyeceres to hold 135 non-local and 5 local symbols. 
203 source Lines were read in Pass 1, produci "} 13 object records in Pass 2. 

8 pages of virtual memory were used to define 7 macros. 


wearer eescer ener ee ee me ween ee $ 


Macro Library name 


"$255$DUA28: [SYSLIBISTARLET. MLB;2 4 
190 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBINDEX/OBJ=OBJ$:LIBINDEX MSRC$:LIBINDEX/UPDATE=(ENH$:LIBINDEX) 


NORD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 


AH-BT13A-SE DIGI 
VAX/VMS V4.0 | _ CONF 


TAL EQUIPMENT CORPORATION 
IDENTIAL AND PROPRIETARY 


020 


